home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / data / dora102f / doralgin.plp < prev    next >
Text File  |  1993-07-08  |  3KB  |  78 lines
  1. 　/************************************************************************
  2. *    ログイン処理                            *
  3. *************************************************************************/
  4. /*    初期設定処理    */
  5. %initmode{case    (@tail(MODEM,{00}),
  6.         {m},{rscs({Yes});xon({Yes});flyingx({Yes});dispecho({Yes})},
  7.             {s},{rscs({Yes});xon({No});flyingx({Yes});;dispecho({Yes})},
  8.         {n},{rscs({No});xon({Yes});flyingx({No}):dispecho({No})});
  9.     ctrl({Yes});esc({Yes});stopbit({1});parity({None});lineend({CRLF});
  10.     lineendt({CRLF});dataleng({8bit});flyline({4});
  11.     sendtype({Line});code({sjis});crmode({Yes})};
  12. %selM{select    ({確認して下さい。(オートリダイアルは｢20秒後です｣)},
  13.     20,{im({Yes})},{CALLING AGIN},{im({Yes})},
  14.     {MENUへ戻る},{display({つながらねえな！});RETCD:={Cancel};im({No})}
  15.     )};
  16. /*    電話接続     */
  17. %callTEL{display({\n}|NET|{－ＮＥＴに電話をかけます\n});
  18.             case(@getchar(@nth(MODEM,2,{_}),1,4),
  19.             {1200},{baud(1200)},{2400},{baud(2400)},
  20. 　            {4800},{baud(4800)},{9600},{baud(9600)},
  21.             {},{baud(2400)});
  22. loop    ({    dialone({AT}|@nth(MODEM,1,{/})|@nth(MODEM,2,{/})|
  23.         {D}|DIAL|@nth(ROAD,1,{/}),
  24.     {footnote(NET|{－ＮＥＴに接続して居ます});im({No})},
  25.     {display({\nだれかが使ってますよ\n});selM});
  26.     })};
  27. /*    RS-232C クロス接続    */
  28. %call232C{case    (@tail(ROAD,{/}),
  29.                 {1200},{baud(1200)},{2400},{baud(2400)},
  30.     　            {4800},{baud(4800)},{9600},{baud(9600)},
  31.                 {},{baud(2400)});
  32.           case    (@head(MODEM,{/}),
  33.                 {RET},{type({\n})},
  34.                 {ESC},{type({})})};
  35. /*    回線接続処理    */
  36. %callrd2{            case    (@tail(MODEM,{00})={s},
  37.                     {No},{callTEL},
  38.                     {Yes},{call232C})};
  39. /*    オートパイロット開始処理    */
  40.     %Aisatu{wait(Wtime2,{type(ID|{\n})}
  41.             ,{ＩＤを入力してください}
  42.             ,{type(ID|{\n})}
  43.             ,{USER ID  =},{type(ID|{\n})}
  44.             ,{User ID  =},{type(ID|{\n})});
  45.         wait(Wtime2,{
  46.             case(PassWord={*}||PassWord={},
  47.             {Yes},{SNDMSG({nyuryo_f.snd});type(@input(
  48.                 {パスワードを入力してください})|{\n})},
  49.             {No},{type(PassWord|{\n});SNDMSG({okaeri_f.snd})})                        }
  50.             ,{ﾊﾟｽﾜｰﾄﾞを入力してください},{}                            ,{パスワードを入力してください},{}                        ,{Password =},{});
  51.         case(PassWord={*}||PassWord={},
  52.         {Yes},{SNDMSG({nyuryo_f.snd});type(@input(
  53.             {パスワードを入力してください})|{\n})},
  54.         {No},{type(PassWord|{\n});SNDMSG({okaeri_f.snd})})};
  55. %AUTOLOGIN{display({\n}|NET|{－ＮＥＴへの接続を開始します\n\n});
  56.     footnote(NET|{－ＮＥＴへの接続処理をしています});initmode;
  57.     case    (ROAD={}||ID={},
  58.         {Yes},{display({電話番号かユーザーＩＤが指定されていません});
  59.         footnote({電話番号とユーザーＩＤを指定して下さい});
  60.         SNDMSG({okasi_f.snd})},
  61.         {No},{callrd2;case(RETCD,{Start},{Aisatu});})};
  62. /** 伝言板処理 & ボード書き込み表示 **/
  63.     case(@filechk(UP|{\DENGO}),
  64.         {Yes},{display({伝言板への書き込みを実行します。\n})},
  65.         {No},{display({\n今日は伝言板には書かないよ～ん｡\n})});
  66.     case(@filechk(UP2|{_mopres.ctl})||@filechk(UP2|{_mopupld.ctl}),
  67.         {Yes},{display({\nボードへの書き込みを実行します。\n})},
  68.         {No},{display({\n時にはＲＯＭだけの事も有るさ！\n})});
  69. /********   実行   ********/
  70. RETCD:={Start};AUTOLOGIN;
  71. case    (RETCD,{Cancel},{ },
  72.     {Start},{
  73.     wait(Wtime2,,{お知らせはありません},{ },{新しく},{ }
  74.     ,{§システムからのお知らせ},{ 
  75.     loop({wait(Wtime2,{im({Yes})},{メッセージは以上です},{im({No})})
  76.     })});
  77.     wait({30},,{メールは},{ },{お手紙が},{ },{ありません},{ }
  78. 　　　　,{メールが},{wait(Wtime1,{type({0\n})},{quit},{type({0\n})})});});